home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / EFMUILib / Examples / EFPages.asc < prev    next >
Encoding:
Text File  |  1998-06-24  |  2.0 KB  |  100 lines
  1. ;Pages Example
  2. ;(C)1992/93, Stefan Stuntz
  3. ;Blitz Basic 2 Version (C)1997/98 by Vivid Imagination
  4.  
  5. WBStartup
  6.  
  7. Dim PageName$(4)
  8.  
  9. PageName$(0)="Race"
  10. PageName$(1)="Class"
  11. PageName$(2)="Armour"
  12. PageName$(3)="Level"
  13.  
  14. MUIApplicationTitle       "Pages-Demo"
  15. MUIApplicationVersion     "$VER: Pages-Demo 17.6 (18.08.96)"
  16. MUIApplicationCopyright   "(c)1992/93, Stefan Stuntz"
  17. MUIApplicationAuthor      "Stefan Stuntz"
  18. MUIApplicationDescription "Show MUIs Page Groups"
  19. MUIApplicationBase        "PAGESDEMO"
  20.  
  21.   MUILabel  0,"Name:",#MUIO_Label_SingleFrame
  22.   MUIString 1,"Frodo",32
  23.  
  24.   MUIAddObjsHGroup 4,0,1
  25.  
  26.   MUILabel  2,"Sex:",#MUIO_Label_DoubleFrame
  27.   MUICycle  3,"Male","Female"
  28.  
  29.   MUIAddObjsHGroup 4,2,3
  30.  
  31. MUIAddTags 4,#MUIA_Group_Columns,2
  32. MUICreateHGroup 4
  33.  
  34.   MUIRadio 5,"","Human","Elf","Dwarf","Hobbit","Gnome"
  35.  
  36. MUIAddTags 27,#MUIA_Register_Frame,1
  37.  
  38.   MUIRadio 6,"","Warrior","Rouge","Bard","Monk","Magician","Archmage"
  39.  
  40.  
  41.   MUILabel 7,"Cloak:",#MUIO_Label_SingleFrame
  42.   MUICheckMark 8,1
  43.  
  44.   MUILabel 9,"Sheild:",#MUIO_Label_SingleFrame
  45.   MUICheckMark 10,1
  46.  
  47.   MUILabel 11,"Gloves:",#MUIO_Label_SingleFrame
  48.   MUICheckMark 12,1
  49.  
  50.   MUILabel 13,"Helmet:",#MUIO_Label_SingleFrame
  51.   MUICheckMark 14,1
  52.  
  53.   MUIAddObjsHGroup 15,7,8,9,10,11,12,13,14
  54.  
  55. MUIAddTags 15,#MUIA_Group_Columns,2
  56. MUICreateHGroup 15
  57.  
  58.   MUILabel 16,"Experience:",0
  59.   MUISlider 17,0,100,3
  60.  
  61.   MUILabel 18,"Strength:",0
  62.   MUISlider 19,0,100,42
  63.  
  64.   MUILabel 20,"Dexterity:",0
  65.   MUISlider 21,0,100,24
  66.  
  67.   MUILabel 22,"Condition:",11
  68.   MUISlider 23,0,100,39
  69.  
  70.   MUILabel 24,"Intelligence:",0
  71.   MUISlider 25,0,100,74
  72.  
  73.   MUIAddObjsVGroup 26,16,17,18,19,20,21,22,23,24,25
  74.  
  75. MUIAddTags 26,#MUIA_Group_Columns,2
  76. MUICreateVGroup 26
  77.  
  78. MUIAddObjsPage 27,5,6,15,26
  79. MUICreatePage 27,"Race","Class","Armour","Level"
  80.  
  81. MUIAddObjsVGroup 28,4,27
  82. MUICreateVGroup 28
  83.  
  84. MUICreateWindow 30,"Character Definition","PAGE",28
  85. MUIAddSubWindow 30
  86.  
  87. If MUICreateApplication<>True Then End
  88.  
  89. MUINotifyApp 30,#MUIA_Window_CloseRequest,1,-1
  90.  
  91. MUIOpenWindow 30
  92.  
  93. Repeat
  94.   ev.l=MUIWaitEvent
  95. Until ev=-1
  96.  
  97. MUICloseWindow 30
  98.  
  99. End
  100.